home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / first.ada < prev    next >
Text File  |  1993-10-09  |  1KB  |  34 lines
  1. --
  2. --    Program : First.ada
  3. --    Purpose : This program is a "first" Ada program, similar to C 
  4. --              "Hello World" program.  It is intended to help the user
  5. --              start using the GWUMON program by providing a program
  6. --              which would be easy to get up and running.
  7. --
  8. --    Take the default options on the first screen (speed = 6, exceptions = yes,
  9. --              and tasks = no) by hitting the "Esc" key.  Take the defaults on
  10. --              the second screen (Small window, line tracing, and no procedure
  11. --              tracing) by hitting the "Esc" key again.
  12. --    Now the monitor should be running, stopped at the first executable 
  13. --              statement, the elboration of name.  Hit the space key until
  14. --              the program asks for your name.  Type in your name, then 
  15. --              hit return.  Continue to hit the space key until the program
  16. --              completes execution.
  17. --
  18. --    To use this program with GWUMON, from the DOS command line, type:
  19. --                       adacomp -a -b -mfirst first.ada
  20. --                       gwumon -mfirst
  21. --
  22. WITH Text_IO; USE Text_IO;
  23.  
  24. PROCEDURE First IS
  25.   String_Size : CONSTANT Natural := 30;
  26.   Name : String(1..String_Size) := (Others => ' ');
  27.   Return_Size : Natural;
  28. BEGIN
  29.   Put_Line( "Please type in your name");
  30.   Get_Line( Name, Return_Size );
  31.   Put_Line( "Hello, " & Name );
  32. END First;
  33.  
  34.